#! /usr/bin/perl -w

use Carp;
print "\n", '-' x 90, "\n";

test();

print "\n", '-' x 90, "\n";

sub test{
    print "ok\n";
    croak("ERROR:$!");
}

